The Canadian & World Encyclopedia 1998/The Canadian & World Encyclopedia 1998 - Disc 2.iso/mac/prime_CD/pb/PROFILE.DIR/00093_Script_rewind script

Text File | 1997-07-29 | 2KB | 55 lines

global over_paused
on mousedown
  set the castnum of sprite the clickon = cast "sub_rewind down"
  updatestage
  set over_paused = FALSE
  set gQTchannel = 26
  set theOriginalRate = the movierate of sprite gQTchannel
  set the movierate of sprite gQTchannel = 0
  --  puppetsprite 3, true

  if the shiftDown then set jumpDistance = 1
  else set jumpDistance = 120 -- 2 seconds' worth per click

  set themovietime = the movietime of sprite gQTchannel
  set the movietime of sprite gQTchannel = themovietime - jumpDistance

  --  set the castnum of sprite 35 = cast "PAUSE.PCT"
  updatestage

  if the stillDown then
    set origVolume = the volume of sprite gQTchannel
    set backupFactor = 10 -- backupFactor * 1.1 -- linear speedup
    repeat while the stillDown
      --      set themovietime = the movietime of sprite gQTchannel
      --      set jump = themovietime - integer(backupFactor)
      if the movietime of sprite gQTchannel = 0 then
        --stay
        --        set the movietime of sprite gQTchannel = 0
        -- updatestage
        exit repeat
      else
        --back up
        set startMT = the movietime of sprite gQTchannel
        set the volume of sprite gQTchannel = origVolume/2
        set the movierate of sprite gQTchannel = 1
        set the movierate of sprite gQTchannel = 0
        set endMT = the movietime of sprite gQTchannel
        set playTime = (endMT - startMT)
        set the movietime of sprite gQTchannel = ¼
the movietime of sprite gQTchannel-(playTime*backupFactor)
        -- jump -- - themovietime  -- kf 12/4/96 integer(backupFactor)
        -- set backupFactor = backupFactor + 1
      end if
      updatestage
    end repeat
    set the volume of sprite gQTchannel = origVolume
  end if

  set the movierate of sprite gQTchannel to theOriginalRate
  updatestage
end
on mouseup
  set the castnum of sprite the clickon = cast "sub_rewind"
  updatestage
end